home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL20.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-25  |  341 b   |  14 lines
  1.                 /* Program  20  */
  2.  
  3. domains
  4.     integerlist = integer*
  5. predicates
  6.     writelist(integerlist)
  7.     write5(integerlist,integer)
  8. clauses
  9.     writelist( NL )   :- nl, write5( NL, 0 ), nl.
  10.  
  11.     write5( TL, 5 )   :-!, nl, write5( TL, 0).
  12.     write5( [H|T], N ) :- write(H," "),N1=N+1,write5(T,N1).
  13.     write5( [], _ ).
  14.